unit unResultados;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, DBCtrls, DB, StdCtrls, Buttons, ComCtrls, Pergunta;

type
 TfmResultados = class(TForm)
  dsEvento: TDataSource;
  btSalvar: TBitBtn;
  btCancelar: TBitBtn;
  PageControl1: TPageControl;
  TabSheet1: TTabSheet;
  Label1: TLabel;
  Label2: TLabel;
  Label3: TLabel;
  Label4: TLabel;
  Label5: TLabel;
  Label6: TLabel;
  Label7: TLabel;
  Label9: TLabel;
  Label10: TLabel;
  Label11: TLabel;
  Label12: TLabel;
  Label13: TLabel;
  Label14: TLabel;
  Label15: TLabel;
  DBLookupComboBox1: TDBLookupComboBox;
  DBLookupComboBox2: TDBLookupComboBox;
  DBLookupComboBox3: TDBLookupComboBox;
  DBLookupComboBox4: TDBLookupComboBox;
  DBLookupComboBox5: TDBLookupComboBox;
  DBLookupComboBox6: TDBLookupComboBox;
  DBLookupComboBox7: TDBLookupComboBox;
  dsPilotos: TDataSource;
  btCancelarEvento: TBitBtn;
  Pergunta1: TPergunta;
  Label8: TLabel;
  Label16: TLabel;
  DBLookupComboBox8: TDBLookupComboBox;
  Label17: TLabel;
  Label18: TLabel;
  Label19: TLabel;
  Label20: TLabel;
  Label21: TLabel;
  Label22: TLabel;
  Label23: TLabel;
  Label24: TLabel;
  Label25: TLabel;
  Label26: TLabel;
  Label27: TLabel;
  Label28: TLabel;
  Label29: TLabel;
  Label30: TLabel;
  DBLookupComboBox9: TDBLookupComboBox;
  DBLookupComboBox10: TDBLookupComboBox;
  DBLookupComboBox11: TDBLookupComboBox;
  DBLookupComboBox12: TDBLookupComboBox;
  DBLookupComboBox13: TDBLookupComboBox;
  DBLookupComboBox14: TDBLookupComboBox;
  DBLookupComboBox15: TDBLookupComboBox;
  Label31: TLabel;
  Label32: TLabel;
  DBLookupComboBox16: TDBLookupComboBox;
  procedure btSalvarClick(Sender: TObject);
  procedure btCancelarClick(Sender: TObject);
  procedure Label9Click(Sender: TObject);
  procedure Label10Click(Sender: TObject);
  procedure Label11Click(Sender: TObject);
  procedure Label12Click(Sender: TObject);
  procedure Label13Click(Sender: TObject);
  procedure Label14Click(Sender: TObject);
  procedure Label15Click(Sender: TObject);
  procedure FormKeyPress(Sender: TObject; var Key: Char);
  procedure btCancelarEventoClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
 private
  { Private declarations }
 public
  { Public declarations }
 end;
 
var
 fmResultados: TfmResultados;
 
implementation

uses unDM;

{$R *.dfm}

procedure TfmResultados.btCancelarClick(Sender: TObject);
begin
 dm.tabEventos.Cancel;
 Close;
end;

procedure TfmResultados.btCancelarEventoClick(Sender: TObject);
begin
 if Pergunta1.Executar = mrYes then
  begin
   dm.tabEventosPrimeiro.Value := -1;
   dm.tabEventosSegundo.Value := -1;
   dm.tabEventosTerceiro.Value := -1;
   dm.tabEventosQuarto.Value := -1;
   dm.tabEventosQuinto.Value := -1;
   dm.tabEventosSexto.Value := -1;
   dm.tabEventosSetimo.Value := -1;
   dm.tabEventosOitavo.Value := -1;
   dm.tabEventosNono.Value := -1;
   dm.tabEventosDecimo.Value := -1;
   dm.tabEventosDecimoPrimeiro.Value := -1;
   dm.tabEventosDecimoSegundo.Value := -1;
   dm.tabEventosDecimoTerceiro.Value := -1;
   dm.tabEventosDecimoQuarto.Value := -1;
   dm.tabEventosDecimoQuinto.Value := -1;
   dm.tabEventosDecimoSexto.Value := -1;
   dm.tabEventosFinalizada.Value := False;
   dm.tabEventos.Post;
   dm.AtualizarPontos(dm.tabEventosidevento.Value);
   Close;
  end;
end;

procedure TfmResultados.btSalvarClick(Sender: TObject);
begin
 dm.tabEventosFinalizada.Value := True;
 dm.tabEventos.Post;
 dm.AtualizarPontos(dm.tabEventosidevento.Value);
 Close;
end;

procedure TfmResultados.FormClose(Sender: TObject; var Action: TCloseAction);
begin
DM.tabPilotos.Close;
end;

procedure TfmResultados.FormCreate(Sender: TObject);
begin
DM.tabPilotos.Open;
end;

procedure TfmResultados.FormKeyPress(Sender: TObject; var Key: Char);
begin
 if key = #27 then
  btCancelar.Click;
end;

procedure TfmResultados.Label10Click(Sender: TObject);
begin
 dm.tabEventosSegundo.Value := -1;
end;

procedure TfmResultados.Label11Click(Sender: TObject);
begin
 dm.tabEventosTerceiro.Value := -1;
end;

procedure TfmResultados.Label12Click(Sender: TObject);
begin
 dm.tabEventosQuarto.Value := -1;
end;

procedure TfmResultados.Label13Click(Sender: TObject);
begin
 dm.tabEventosQuinto.Value := -1;
end;

procedure TfmResultados.Label14Click(Sender: TObject);
begin
 dm.tabEventosSexto.Value := -1;
end;

procedure TfmResultados.Label15Click(Sender: TObject);
begin
 dm.tabEventosSetimo.Value := -1;
end;

procedure TfmResultados.Label9Click(Sender: TObject);
begin
 dm.tabEventosPrimeiro.Value := -1;
end;

end.

